Исходный код

Option Explicit
Call SaveCurrentState(ThisObject)


'==============================================================================
'Сохранить текущее состояние файлов объекта в базе (обновить файлы без 
'разблокирования объекта)
'==============================================================================
Sub SaveCurrentState(obj)
        'От метода будет толк в единственном случае - если файлы объекта редактируются 
        'текущим пользователем. Иначе обновлять нечего
        With obj.Permissions
                If (.Locked) And (.LockType=tdmLockFiles) And (.LockOwner) Then
                        On Error Resume Next
                        obj.CheckIn
                        'Ошибка может произойти, если файл(ы) не найден в рабочей папке
                        If Err<>0 Then
                                MsgBox "Ошибка загрузки файлов объекта."
                        End If
                Else
                        MsgBox "Объект в данный момент не редактируется или _
                                    редактируется другим пользователем."
                End If
        End With
End Sub
'==============================================================================